home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / math / classdoc.zoo / rerelpgm.a < prev    next >
Text File  |  1991-09-29  |  502b  |  40 lines
  1.     dcr.5    $02dcc
  2. rerelpgm    
  3.     dcr.5    rerelpgmend-rerelpgm
  4.     
  5.     jsr    $0679b
  6.     
  7.     move.a    pc,c
  8. .1    
  9.     move.a    #.1,a
  10.     sub.a    a,c
  11.     move.a    c,b
  12.     move.a    #reloc_tab,c
  13.     add.a    b,c
  14.     move.a    c,d0
  15.     
  16.     move.a    #reloc_off,c
  17.     add.a    b,c
  18.     move.a    c,d1
  19.     move.a    (d1),c
  20.     move.a    c,d
  21. .3    
  22.     move.a    (d0),c
  23.     add.a    #5,d0
  24.     beq.a    c,0,.2
  25.     add.a    b,c
  26.     move.a    c,d1
  27.     move.a    (d1),c
  28.     sub.a    d,c
  29.     move.a    c,(d1)
  30.     bra    .3
  31. .2    
  32.     jsr    $067d2
  33.     move.a    (d0),a
  34.     add.a    #5,d0
  35.     jmp    (a)
  36.     
  37. reloc_off    dcr.5    0
  38. reloc_tab    reltab
  39. rerelpgmend    
  40.